home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / New Files / Auto.RR Script < prev    next >
Encoding:
Text File  |  1988-10-15  |  2.0 KB  |  80 lines  |  [TEXT/MSWD]
  1. VT100
  2. DISPLAY 132
  3. COMM 1200-N-8-1-FULL
  4. PRINTER
  5. QUIET
  6. ALT OFF
  7. DELKEY OFF
  8. CRC ON
  9. ECHO OFF
  10. GBAR
  11. STRIP OFF
  12. XKSTRIP OFF
  13. SETCOST 1200
  14. REDIAL LIMIT 15
  15. LF OFF
  16. SLOW OFF
  17. CONTROL1 S
  18. CONTROL2 Q
  19. CONTROL3 C
  20. TYPE AT^M
  21. PAUSE
  22. TYPE ATZ^M
  23. PAUSE
  24. REDIAL ATDT 3518039
  25. PAUSE
  26. TYPE HHH
  27. PROMPT U#=
  28. PAUSE
  29. TYPE ^R(Put your user ID,password here)^M
  30. ALERT1 No letters/JUMPTO NEW.FILES
  31. :GET.MAIL
  32. PROMPT ?
  33. TYPE M200,2^M
  34. RECA HD:Recreation:RR:Downloads:NEW-MAIL
  35. PROMPT Press <RETURN>?
  36. CLOSE
  37. TYPE ^M
  38. :NEW.FILES
  39. PROMPT ?
  40. :COM.LOOP
  41. PAUSE 20
  42. TYPE COM^M
  43. ALERT1 or <H>/JUMPTO COM.LOOP
  44. :NON.LOOP
  45. PROMPT ?
  46. PAUSE 5
  47. TYPE NON^M
  48. ALERT1 FF./JUMPTO NON.LOOP
  49. PROMPT ?
  50. TYPE M606,11^M
  51. PROMPT ALL Libraries
  52. RECA HD:Recreation:RR:Downloads:NEW-FILES-LISTING
  53. PROMPT End of Directory.
  54. CLOSE
  55. :SEND.STUFF
  56. ( Check to see if file exists for upload
  57. USEROPENI 1,HD:Recreation:RR:Upload Text
  58. USERCLOSE 1
  59. ( If there isn't one, end it all
  60. IF ERROR JUMPTO END
  61. PROMPT ?
  62. TYPE M200,7^M
  63. PROMPT Carbon Copy:
  64. TYPE ^M
  65. PROMPT Sub:
  66. TYPE ^M
  67. PROMPT READY FOR INPUT
  68. SENDA HD:Recreation:RR:Upload Text
  69. TYPE ^C
  70. PROMPT >
  71. TYPE *s^M
  72. :END
  73. PROMPT ?
  74. TYPE BYE^M
  75. PROMPT Have a nice day!
  76. PAUSE 5
  77. TYPE +++
  78. PAUSE
  79. TYPE ATH0^M